Unit isistemler;

Interface

Uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, Grids, Wwdbigrd, Wwdbgrid, StdCtrls, Db, ADODB;

Type
  Tisistemf = Class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    wwDBGrid1: TwwDBGrid;
    sistem: TADOQuery;
    DataSource1: TDataSource;
    Button1: TButton;
    Procedure FormCreate(Sender: TObject);
    Procedure Button1Click(Sender: TObject);
    Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
  Private
    { Private declarations }
  Public
    { Public declarations }
  End;

Var
  isistemf: Tisistemf;

Implementation

Uses data;

{$R *.DFM}

Procedure Tisistemf.FormCreate(Sender: TObject);
Begin
  sistem.Open;
End;

Procedure Tisistemf.Button1Click(Sender: TObject);
Begin
  close;
End;

Procedure Tisistemf.FormClose(Sender: TObject; Var Action: TCloseAction);
Begin
  action := cafree;
  isistemf := Nil;
End;

End.
